home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Control Panel Hide 11.xpl < prev    next >
Text File  |  2000-11-13  |  3KB  |  116 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #5"
  6. "VERSION"="2.39"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "QuickTime" applet [16-bit, 2.x]"
  9. "TEXT 2"="Display "QuickTime" applet [32-bit, 2.x]"
  10. "TEXT 3"="Display "QuickTime" applet [3.x and 4.x]"
  11. "TEXT 4"="Display "Ontrack WinCustomizer" applet"
  12. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  13. "DESCRIPTION 2"="QuickTime plays Apple QuickTime movies and Macintosh .PIC image files on IBM compatibles [Windows machines]."
  14. "DESCRIPTION 3"="It can be downloaded for free from http://www.apple.com/quicktime/ and Ontrack WinCustomizer comes with Ontrack SystemSuite.  See:  http://www.ontrack.com/"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to CptSiskoX for the QuickTime Control Panel icon plug-ins and the Mijenix WinCustomizer one. :)"
  20.  
  21. '******************************************************************
  22. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  23. '******************************************************************
  24. sVals=""
  25. sVals2=Array("qtw16.cpl","qtw32.cpl","QuickTime.cpl","mxctlpnl.cpl")
  26. sVals3=Array("qtw16.cpl","qtw32.cpl","QuickTime.cpl","mxctlpnl.cpl")
  27. '******************************************************************
  28. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  29. '******************************************************************
  30. sPath="HKCU\Control Panel\Don't Load\"
  31. sFile="CONTROL.INI"
  32. sFileSec="Don't Load"
  33.  
  34.  
  35.  
  36. SUB Plugin_Initialize
  37.  if GetWinVer=4 then
  38.     sVals=sVals3
  39.  else
  40.     sVals=sVals2
  41.  end if
  42.  
  43.  for i=0 to UBound(sVals)
  44.      Call ReadIt(i+1,sVals(i)) 
  45.  next 
  46. END SUB
  47.  
  48. Sub ReadIt(ITM,VAL)
  49.   If GetWinVer=2 or GetWinVer=4 then
  50.  
  51.      s=RegReadValue(sPath & VAL)
  52.      if IsEmpty(s)=true then
  53.         Call SetUIElement(ITM,true)
  54.      else
  55.         Call SetUIElement(ITM,false)
  56.      end if
  57.  
  58.   else
  59.  
  60.     s=IniReadValue(sFile,sFileSec,VAL)
  61.     if len(s)>0 then
  62.        Call SetUIElement(ITM,false)
  63.     else
  64.        Call SetUIElement(ITM,true)
  65.     end if
  66.      
  67.   end if
  68.      
  69. End Sub
  70.  
  71. 'Called when the Plugin should validate the Data the user has entered
  72. SUB Plugin_CheckData(ElementIndex)
  73. END SUB
  74.  
  75. 'Called when the Plugin should apply the changes
  76. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  77.  for i=0 to UBound(sVals)
  78.      Call WriteIt(i+1,sVals(i)) 
  79.  next 
  80.  
  81.  Call IndicateSettingChange()
  82. END SUB
  83.  
  84. Sub WriteIt(ITM,VAL)
  85.  b=GetUIElement(ITM)
  86.  if b=true then
  87.     'Display it
  88.  
  89.     if GetWinVer=2 or GetWinVer=4 then  
  90.        s=RegReadValue(sPath & VAL)
  91.        if IsEmpty(s)=false then
  92.           Call RegDeleteValue(sPath & VAL)
  93.        end if
  94.     else
  95.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  96.     end if
  97.  
  98.  else
  99.    'Hide it
  100.    
  101.    if GetWinVer=2 or GetWinVer=4 then
  102.       Call RegWriteValue(sPath & VAL,"1",1) 
  103.    else
  104.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  105.    end if
  106.  
  107.  end if   
  108. End Sub
  109.  
  110.  
  111. 'Called when the Plugin is about to be removed from memory
  112. SUB Plugin_Terminate
  113. END SUB
  114.  
  115.  
  116.